home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cardga1g / module1.bas < prev    next >
BASIC Source File  |  1997-12-12  |  516b  |  18 lines
  1. Attribute VB_Name = "Module1"
  2. Public Const SPI_SETDESKWALLPAPER = 20
  3. Public Const SPIF_UPDATEINIFILE = &H1
  4. Public Const SPIF_SENDWININICHANGE = &H2
  5.  
  6. Declare Function SystemParametersInfo Lib "user32" Alias _
  7.  "SystemParametersInfoA" (ByVal uAuction As Long, ByVal _
  8.  uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As _
  9.  Long) As Long
  10.  
  11.  
  12. Sub ChangeWallpaper(ByVal fn As String)
  13.     SystemParametersInfo SPI_SETDESKWALLPAPER, 0, fn, _
  14.      SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
  15. End Sub
  16.  
  17.  
  18.